TITLE CSVR

BH:	BLOCK 3
	0	; sometimes i even gross myself out with these kludges

CSVR:	RESET
	OUTSTR [ASCIZ/You are running a cretin server!
/]
	OPEN [17 ? SIXBIT/DLN0/ ? 0]
	 JRST 4,.
	OPEN 1,[0 ? 'DSK,, ? BH]
	 JRST 4,.
	MTAPE [0 ? 0 ? 0 ? 5. ? 0]
	 JRST 4,.
	MTAPE [7]
	 JRST [	OUTSTR [ASCIZ/Can't connect!/]
		EXIT]
	OUTSTR [ASCIZ/Talking to the other cretin!
/]
ININ:	IN 1,
	 CAIA
	  JRST [MTAPE [3 ? 0] ? MTAPE [1] ? EXIT]
	OUTPUT BH+1
	JRST ININ

END CSVR